home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / WIN / VB_DB / PROFIT.ZIP / RECGRPBT.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-12-16  |  3.8 KB  |  123 lines
  1.    '****************************************************************
  2.    '*    Recipe Group File type                                    *
  3.    '****************************************************************
  4.  
  5.     Type RecGroupType
  6.         RecGroup         As String * 4
  7.         RecGroupDesc     As String * 30
  8.     End Type
  9.  
  10.     Global RecGroupRec As RecGroupType
  11.     Global RecGroupSaveRec As RecGroupType
  12.     Global RecGroupSt%
  13.     Global RecGroupKeyB$
  14.     Global RecGroupPosBlk As PosBlk
  15.  
  16. Sub CloseRecGroupFile ()
  17.   '********** Close Recipe group file **********************
  18.     RecGroupKeyBufLen% = 255
  19.     RecGroupBufLen% = Len(RecGroupRec)
  20.     KeyNum% = 0
  21.     RecGroupSt% = 0
  22.     RecGroupSt% = btrcall(BCLOSE, RecGroupPosBlk, RecGroupRec, RecGroupBufLen%, RecGroupKeyB$, RecGroupKeyBufLen%, KeyNum%)
  23. End Sub
  24.  
  25. Sub DeleteRecGroup ()
  26.       RecGroupKeyBufLen% = 255
  27.       RecGroupBufLen% = Len(RecGroupRec)
  28.       KeyNum% = 0
  29.       RecGroupSt% = 0
  30.       RecGroupSt% = btrcall(BDELETE, RecGroupPosBlk, RecGroupRec, RecGroupBufLen%, RecGroupKeyB$, RecGroupKeyBufLen%, KeyNum%)
  31. End Sub
  32.  
  33. Sub FirstRecGroup ()
  34.   If Len(RecGroupKeyB$) <> 4 Then
  35.     RecGroupKeyB$ = String$(4, " ")
  36.   End If
  37.   RecGroupKeyBufLen% = 255
  38.   RecGroupBufLen% = Len(RecGroupRec)
  39.   KeyNum% = 0
  40.   RecGroupSt% = 0
  41.   RecGroupSt% = btrcall(BFIRST, RecGroupPosBlk, RecGroupRec, RecGroupBufLen%, RecGroupKeyB$, RecGroupKeyBufLen%, KeyNum%)
  42. End Sub
  43.  
  44. Sub MsgRecGroupNotFound ()
  45.   Msg$ = "Recipe group not found.  Status = " + Str$(RecGroupSt%)
  46.   T1% = MsgBox(Msg$, 0, "Warning!")
  47. End Sub
  48.  
  49. Sub MsgRecGroupNotOpen ()
  50.         Msg$ = "Recipe group file not opened."
  51.         T1% = MsgBox(Msg$, 0, "Warning!")
  52. End Sub
  53.  
  54. Sub MsgUnknownRecGroupError ()
  55.   Msg$ = "Recipe group file error.  Status = " + Str$(RecGroupSt%)
  56.   T1% = MsgBox(Msg$, 0, "Warning!")
  57. End Sub
  58.  
  59. Sub NextRecGroup ()
  60.   If Len(RecGroupKeyB$) <> 4 Then
  61.     RecGroupKeyB$ = String$(4, " ")
  62.   End If
  63.   RecGroupKeyBufLen% = 255
  64.   RecGroupBufLen% = Len(RecGroupRec)
  65.   KeyNum% = 0
  66.   RecGroupSt% = 0
  67.   RecGroupSt% = btrcall(BNEXT, RecGroupPosBlk, RecGroupRec, RecGroupBufLen%, RecGroupKeyB$, RecGroupKeyBufLen%, KeyNum%)
  68. End Sub
  69.  
  70. '
  71. '
  72. Sub OpenRecGroupFile ()
  73.   
  74.   '******** Open Recipe Group File ********************
  75.     RecGroupKeyB$ = "regrfile.btr"
  76.     RecGroupKeyBufLen% = 255
  77.     RecGroupBufLen% = Len(RecGroupRec)
  78.     KeyNum% = 0
  79.     RecGroupSt% = 0
  80.     RecGroupSt% = btrcall(BOPEN, RecGroupPosBlk, RecGroupRec, RecGroupBufLen%, RecGroupKeyB$, RecGroupKeyBufLen%, KeyNum%)
  81.     If RecGroupSt% <> 0 Then
  82.       Msg$ = "Recipe group file open failed. Status = " + Str$(RecGroupSt%)
  83.       T1% = MsgBox(Msg$, 0, "Warning!")
  84.     End If
  85. End Sub
  86.  
  87. Sub PreviousRecGroup ()
  88.   If Len(RecGroupKeyB$) <> 4 Then
  89.     RecGroupKeyB$ = String$(4, " ")
  90.   End If
  91.   RecGroupKeyBufLen% = 255
  92.   RecGroupBufLen% = Len(RecGroupRec)
  93.   KeyNum% = 0
  94.   RecGroupSt% = 0
  95.   RecGroupSt% = btrcall(BPREVIOUS, RecGroupPosBlk, RecGroupRec, RecGroupBufLen%, RecGroupKeyB$, RecGroupKeyBufLen%, KeyNum%)
  96. End Sub
  97.  
  98. Sub ReadRecGroup ()
  99.     RecGroupKeyB$ = RecGroupRec.RecGroup
  100.     RecGroupKeyBufLen% = 255
  101.     RecGroupBufLen% = Len(RecGroupRec)
  102.     KeyNum% = 0
  103.     RecGroupSt% = 0
  104.     RecGroupSt% = btrcall(BEQUAL, RecGroupPosBlk, RecGroupRec, RecGroupBufLen%, RecGroupKeyB$, RecGroupKeyBufLen%, KeyNum%)
  105. End Sub
  106.  
  107. Sub UpdateRecGroup ()
  108.     RecGroupKeyBufLen% = 255
  109.     RecGroupBufLen% = Len(RecGroupRec)
  110.     KeyNum% = 0
  111.     RecGroupSt% = 0
  112.     RecGroupSt% = btrcall(BUPDATE, RecGroupPosBlk, RecGroupRec, RecGroupBufLen%, RecGroupKeyB$, RecGroupKeyBufLen%, KeyNum%)
  113. End Sub
  114.  
  115. Sub WriteRecGroup ()
  116.       RecGroupKeyBufLen% = 255
  117.       RecGroupBufLen% = Len(RecGroupRec)
  118.       KeyNum% = 0
  119.       RecGroupSt% = 0
  120.       RecGroupSt% = btrcall(BINSERT, RecGroupPosBlk, RecGroupRec, RecGroupBufLen%, RecGroupKeyB$, RecGroupKeyBufLen%, KeyNum%)
  121. End Sub
  122.  
  123.